home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / T-TPUG Old Monthly Disks / (c)tp.d64 / xmas.c (.txt) < prev    next >
Commodore BASIC  |  2007-02-11  |  1KB  |  118 lines
  1. 1 REM"
  2. 2 [143]"
  3. 3 REM"
  4. 4 [143]"
  5. 5 REM"
  6. 6 [143]"
  7. 7 REM"
  8. 8 [143]"
  9. 9 REM"
  10. 10 [143]"
  11. 11 REM"
  12. 12 [143]"
  13. 13 REM"
  14. 14 [143]"
  15. 15 REM"
  16. 16 [143]"
  17. 17 REM"
  18. 18 [143]"
  19. 19 REM"
  20. 20 [143]"
  21. 21 REM"   D O   N O T   L I S T
  22. 22 [143]"
  23. 23 REM"
  24. 24 [143]"
  25. 25 REM"
  26. 26 [143]"
  27. 27 REM"
  28. 28 [143]"
  29. 29 REM(null)
  30. 30 REM(null)
  31. 31 REM(null)
  32. 32 REM(null)
  33. 33 REM(null)
  34. 34 REM(null)
  35. 35 REM(null)
  36. 36 REM(null)
  37. 37 REM(null)
  38. 38 REM(null)
  39. 39 REM(null)
  40. 40 REM(null)
  41. 41 REM(null)
  42. 42 REM(null)
  43. 43 REM(null)
  44. 44 REM(null)
  45. 45 REM(null)
  46. 46 REM(null)
  47. 47 REM(null)
  48. 48 REM(null)
  49. 49 REM(null)
  50. 50 REM(null)
  51. 51 REM(null)
  52. 52 REM(null)
  53. 53 REM(null)
  54. 54 REM(null)
  55. 55 REM(null)
  56. 56 REM(null)
  57. 57 REM(null)
  58. 58 REM(null)
  59. 59 REM(null)
  60. 60 REM(null)
  61. 61 REM(null)
  62. 62 REM(null)
  63. 63 REM(null)
  64. 64 REM(null)
  65. 65 REM(null)
  66. 66 REM(null)
  67. 67 REM(null)
  68. 68 REM(null)
  69. 69 REM(null)
  70. 70 REM(null)
  71. 71 REM(null)
  72. 72 REM(null)
  73. 73 REM(null)
  74. 74 REM(null)
  75. 75 REM(null)
  76. 76 REM(null)
  77. 77 REM(null)
  78. 78 REM(null)
  79. 79 REM(null)
  80. 80 REM(null)
  81. 81 REM(null)
  82. 82 REM(null)
  83. 83 REM(null)
  84. 84 REM(null)
  85. 85 REM(null)
  86. 86 REM(null)
  87. 87 REM(null)
  88. 88 REM(null)
  89. 89 REM(null)
  90. 90 REM(null)
  91. 91 REM(null)
  92. 92 REM(null)
  93. 93 REM(null)
  94. 94 REM(null)
  95. 95 REM(null)
  96. 96 REM(null)
  97. 97 REM(null)
  98. 98 REM(null)
  99. 99 REM(null)
  100. 100 REM TPUG XMAS DEMO BOOT
  101. 110 REM BY JOE DI PALMA
  102. 115 REM PROGRAM BY JOE  DI PALMA
  103. 120 REM
  104. 125 POKE808,234
  105. 130 POKE53280,0:POKE53281,0
  106. 135 PRINT"[147]";
  107. 140 PRINT""
  108. 145 PRINT"TPUG CHRISTMAS DEMO."
  109. 150 PRINT"[158]  DESIGNED AND CREATED BY:"
  110. 155 PRINT" JOE DI PALMA"
  111. 160 PRINT""
  112. 165 PRINT"HIT ANY KEY TO LOAD"
  113. 170 GETA$:IFA$=""THEN170
  114. 180 REM LOADER
  115. 200 PRINT"[146][147][144]LOAD"CHR$(34)"XMAS.D"CHR$(34)",8"
  116. 210 PRINT"":PRINT"NOW LOADING TPUG XMAS DEMO....[144]"
  117. 220 PRINT"":POKE198,4:POKE631,13:POKE632,82:POKE633,213:POKE634,13:END
  118.